home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / demo_b1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-06-15  |  2.3 KB  |  93 lines
  1. /*==== -: "OBJ_18B1.SP" ﾃﾞﾓ :- ====
  2. /* ｼﾖｳ ｽﾌﾟﾗｲﾄ ﾌﾟﾚｰﾝｽｳ    ﾎﾝﾀｲ : 12ｺ + 12ｺ
  3. /*            ｺｱ   : 3 ｺ
  4. /*            ｼｬｯﾀｰ : 6 ｺ
  5.  
  6. int i,j
  7. int core_anm
  8. int shutter,stn0,stn1
  9. dim int core(15)={&H110,&H110,&H110,&H110,&H111,&H112,&H113,&H114,
  10.           &H114,&H114,&H114,&H114,&H113,&H112,&H111,&H110}
  11. dim char stxy(1,15)={112,112,112,112, 108, 104, 100,  96
  12.     , 96, 96, 96, 96, 100, 104, 108, 112
  13.     ,160,160,160,160, 164, 168, 172, 176
  14.     ,176,176,176,176, 172, 168, 164, 160}
  15.  
  16. /*==== -: screen init. :- ====
  17.  
  18. screen 0,2,1,1
  19. sp_init() : sp_disp(1)
  20. palfile_def("obj_18b.pal",1)
  21. spfile_def("obj_18b1.sp",0)
  22.  
  23. /*---- -: ﾎﾝﾀｲ :- ----
  24.  
  25. sp_set( 24,140,112,&H0100,3)
  26. sp_set( 25,104,128,&H0101,3)
  27. sp_set( 26,120,128,&H0102,3)
  28. sp_set( 27,136,128,&H0103,3)
  29. sp_set( 28,152,128,&H0104,3)
  30. sp_set( 29,168,128,&H0105,3)
  31.  
  32. sp_set( 30,104,144,&H8101,3)
  33. sp_set( 31,120,144,&H8102,3)
  34. sp_set( 32,136,144,&H8103,3)
  35. sp_set( 33,152,144,&H8104,3)
  36. sp_set( 34,168,144,&H8105,3)
  37. sp_set( 35,140,160,&H8100,3)
  38.  
  39. /*
  40. sp_set( 10,112,112,&H0106,3)
  41. sp_set( 11,128,112,&H0107,3)
  42. sp_set( 12,144,112,&H0108,3)
  43. sp_set( 13,160,112,&H0109,3)
  44. sp_set( 14,176,112,&H010A,3)
  45.     sp_set( 40,140,112,&H010B,3)
  46.  
  47. sp_set( 15,112,160,&H8106,3)
  48. sp_set( 16,128,160,&H8107,3)
  49. sp_set( 17,144,160,&H8108,3)
  50. sp_set( 18,160,160,&H8109,3)
  51. sp_set( 19,176,160,&H810A,3)
  52.     sp_set( 41,140,160,&H810B,3)
  53.  
  54. /*---- -: ｺｱ :- ----
  55.  
  56. sp_set(  0,148,136,&H0110,3)
  57. sp_set(  1,140,128,&H0110,3)
  58. sp_set(  2,140,144,&H0110,3)
  59.  
  60. /*---- -: ｼｬｯﾀｰ :- ----
  61.  
  62. sp_set(  3,128,128,&H0115,3) : sp_set(  4,134,128,&H0119,3)
  63. sp_set(  5,128,144,&H0115,3) : sp_set(  6,134,144,&H0119,3)
  64. sp_set(  7,160,136,&H4115,3) : sp_set(  8,154,136,&H4119,3)
  65.  
  66. /*==== -: ??? :- ====
  67.  
  68. while inkey$(0)<>chr$(&H1B)
  69.     core_anm=core_anm+1 and 255
  70.     shutter=shutter+1 and 255
  71.     stn0=stxy(0,shutter shr 4)
  72.     stn1=stxy(1,shutter shr 4)
  73.  
  74.     v_disp()
  75.  
  76.     sp_set(  0,148,136,core(core_anm shr 4),3)
  77.     sp_set(  1,140,128,core(core_anm shr 4),3)
  78.     sp_set(  2,140,144,core(core_anm shr 4),3)
  79.     sp_set( 10,112,stn0,&H0106,3)
  80.     sp_set( 11,128,stn0,&H0107,3)
  81.     sp_set( 12,144,stn0,&H0108,3)
  82.     sp_set( 13,160,stn0,&H0109,3)
  83.     sp_set( 14,176,stn0,&H010A,3)
  84.     sp_set( 40,140,stn0+12,&H010B,3)
  85.  
  86.     sp_set( 15,112,stn1,&H8106,3)
  87.     sp_set( 16,128,stn1,&H8107,3)
  88.     sp_set( 17,144,stn1,&H8108,3)
  89.     sp_set( 18,160,stn1,&H8109,3)
  90.     sp_set( 19,176,stn1,&H810A,3)
  91.     sp_set( 41,140,stn1-12,&H810B,3)
  92. endwhile
  93.